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Este libro contiene programas listos para ser.introducidos y 
ha sido realizado para su utilización con el 2% Spectrum+ y 
Zk Spectrum, 


Los programas son cortos, sencillos y divertidos; todos 
ellos están descritos y explicados de forma que el lector 
comprenda perfectamente su funcionamiento y sepa introducir 
modificaciones, Este libro da también consejos sobre los 
atajos y las prestaciones especiales que abren el camino a 
una programación más eficaz con el 2X Spectrum, 


Los programas de este libro parten de principios básicos 
sencillos y se hacen algo más complejos de forma gradual, 
Esto ayudará a aprender, paso a paso, las palabras y órdenes 
utilizadas en la escritura de programas, 

No hay que preocuparse si, en un principio, no se comprende 
exactamente el significado de cada palabra u orden, Al 
probar los programas se verá con claridad para qué sirven, 


Los programas informáticos se pueden almacenar en cintas 
cassette, Los primeros programas son sencillos, pero es 


probable que se quiera hacer una copia de los programas más 
largos, Al final de este libro hay una sección que explica 
la forma de grabarlos, 


PROGRAMACION PARA PRINCIPIANTES 


Muchos principiantes tienen problemas para conseguir que sus 
programas funcionen sin problemas, La mayoría de estos 
problemas se pueden evitar si se sabe teclear e introducir 
correctamente los programas, El que aborde por primera vez 
la programación del 2X Spectrum, debe leer antes 
detenidamente esta sección y volver a consultarla cuando 
tenga problemas, 


ESCRITURA EN EL TECLADO DEL SPECTRUM 


Tanto el ZX Spectrum como el ZX Spectrum+ tienen sistemas de 
"entrada por tecla individual", por lo que no hay que 


introducir las órdenes BASIC letra a letra: pulsando una 
tecla, sale impresa en la pantalla la palabra completa, 


Las palabras BASIC que se pueden imprimir pulsando una sola 
tecla reciben el nombre de palabras clave o palabras 
reservadas, En la mayoría de las teclas hay impresas 
palabras clave y también encima y debajo de ellas en el 
Spectrum estándar, 


Cuando se teclea un programa HAY que utilizar estas palabras 
clave, Si se intenta introducir una orden o instrucción 
BASIC letra a letra el programa no funcionará, 


ELECCION DE LOS CURSORES 


Cuando se conecta el 2% Spectrum y se pulsa la tecla ENTER 
se verá una letra K brillar intermitentemente, Se trata del 
cursor K, En total hay seis cursores; los cursores K, L, C, 
LE, UV 


o 


AETUAN 


Ñ > 


CLEAR 


mr 


En las teclas o junto a ellas se pueden ver palabras, 
letras, números, simbolos o figuras de diferentes colores, 
El cursor de la pantalla determina cuál de ellas es impresa 
cuando se pulsa la tecla, 


El cursor K 


Cuando está en la pantalla el cursor K, la pulsación de las 
teclas provoca la impresión de la palabra o número de color 
blanco indicado en la tecla, En el 2% Spectrum+ sale impresa 
la palabra superior de la parte sobresaliente de la tecla, 
Por ejemplo, cuando está en la pantalla el cursor K y se 
pulsa la tecla G, sale en la pantalla la instrucción 60 TO, 
No olvidarlo: K es para las PALABRAS CLAVE, 


Lo dicho no se aplica a las teclas CAPS SHIFT, ENTER o BREAK 
SPACE, 
El cursor L 


Después de teclear una palabra clave (a menos que ya se haya 
conectado CAPS LOCK), sale en la pantalla el cursor L, Ahora 


sale impreso el número o la letra, en minúscula y de color 
blanco, que hay en la tecla que se pulsa, 


El cursor L corresponde a las minúsculas, Cuando está en la 
pantalla el cursor L y se quiere imprimir una letra en 
mayúsculas, pulsar la tecla CAPS SHIFT y la letra deseada, 
Si se quiere que todas las letras sean mayúsculas, utilizar 
el cursor C, No olvidarlo: L es para las MINUSCULAS, 


El cursor C 


Para hacer entrar en escena al cursor C en el 2% Spectrum 
estándar, pulsar al mismo tiempo las teclas CAPS SHIFT y 
CAPS LOCK manteniendo un dedo en una tecla y pulsando luego 
la otra, En el 2X Spectrum+ basta pulsar CAPS LOCK, 


Cuando está en la pantalla el cursor C se imprime la 
palabra o número de color blanco de la tecla que se pulsa, 
Las letras aparecerán en mayúsculas, Para tener de nuevo el 
cursor L en la pantalla, pulsar al mismo tiempo las teclas 
CAPS SHIFT y CAPS LOCK (en el 2X Spectrum+, pulsar sólo CAPS 
LOCK), No olvidarlo: C es para las MAYUSCULAS, 


El cursor E 


Antes de imprimir alguna de las palabras que hay por encima 
(y en el 2% Spectrum también debajo) de las teclas, es 
necesario que el cursor E esté en la pantalla, 


(a) Para imprimir las palabras verdes que hay en el 
teclado del Spectrum estándar, pulsar al mismo tiempo las 
teclas CAPS SHIFT y SYMBOL SHIFT, Es decir, mantener el dedo 
en una de las dos teclas y pulsar la otra; luego, dejar de 
pulsarlas al mismo tiempo y pulsar la tecla deseada, 


(b) Para imprimir la palabra superior de una tecla 
del 2% Spectrum+ pulsar la tecla EXTEND MODE, 


(c) Para imprimir las palabras y simbolos de color 
rojo que hay debajo de las teclas en el 2% Spectrum 
estándar, pulsar en primer lugar las teclas CAPS SHIFT y 
SYMBOL SHIFT, como en (a), para hacer aparecer el cursor E, 
Pero esta vez mantener la presión en una de las dos teclas 
(o volver a pulsar una de ellas mientras el cursor E está en 
la pantalla) y pulsar la tecla deseada, 


(d) Para imprímir la palabra o el simbolo que hay 
justo encima de la parte saliente de las teclas del 2% 
5pectrum+, presionar al mismo tiempo las teclas SYMBOL SHIFT 
y EXTEND MODE y pulsar entonces la tecla deseada, 


K, L, C, y SYMBOL SHIFT 


En la parte frontal de la mayoría de las teclas del Spectrum 
hay otra palabra o símbolo de color rojo, En el teclado del 
2k Spectrum+ éstas son las palabras o simbolos inferiores de 
la parte saliente de las teclas, Para obtener estas palabras 
o simbolos, pulsar al mismo tiempo SYMBOL SHIFT y la tecla 
deseada, Estos simbolos o palabras clave sólo se pueden 
imprimir cuando está en la pantalla el cursor K, LoC, 


El cursor G 


En las teclas 1 a 8 hay impresas un conjunto de figuras de 
color blanco, Estas figuras reciben el nombre de figuras 
gráficas o caracteres gráficos, Para imprimir estas figuras 
tiene que estar en la pantalla el cursor G, Para ello, se 
deben pulsar al mismo tiempo la tecla CAPS SHIFT y la tecla 
9, Si se tiene el ZX Spectrum+, pulsar sólo la tecla GRAPH, 


Mantener la presión en la tecla CAPS SHIFT y pulsar una 0 
más teclas del |] al $, En la pantalla saldrán impresas las 
figuras de las teclas pulsadas, Al dejar de pulsar la tecla 
CAPS SHIFT y pulsar sólo estas teclas las figuras salen en 
la pantalla al revés, 


Cuando se ha terminado de introducir figuras gráficas hay 

que desconectar el cursor G, Para hacerlo, pulsar al mismo 
tiempo CAPS SHIFT y la tecla 9, En el 2X Spectrum+ pulsar 

sólo la tecla GRAPH, No olvidarlo; G es para GRAFICOS, 


El cursor ? 


Cuando se introduce un error, el 2% Spectrum es capaz, a 
veces, de hacérnoslo saber, Cuando esto sucede, imprime el 
cursor ? junto a la parte del programa que es incorrecta, 


LOS NUMEROS DE LINEA 


Un programa de ordenador es un listado de instrucciones 
numeradas, Cada conjunto empieza con un número de linea, 
normalmente en el 10, y ascienden de diez en diez, dejando 
espacios para poder introducir más tarde líneas adicionales, 
Los números de línea no tienen que seguir ninguna pauta 
establecida; lo importante es que las instrucciones del 
programa estén en el orden correcto, 


LA TECLA ENTER 


No hay que preocuparse si se introduce una linea de un 
programa demasiado larga, ya que la misma continúa 
automáticamente en la linea siguiente, Pero cuando se ha 
terminado de escribirla, HAY que pulsar la tecla ENTER, 


LA TECLA DELETE : 


Si se comete un error al escribir, puede eliminarse pulsando 
al mismo tiempo CAPS SHIFT y DELETE, Si se mantienen los 
dedos en las dos teclas, llegará a borrarse la linea 
completa, En el 2% Spectrum+ sólo hay que pulsar DELETE, 
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LISTANDO 


Una vez introducido un programa, hay que decir al 2% 
Spectrum que lo ejecute, Para ello, pulsar RUN y después 
ENTER, Si todo va bien, funcionará a la primera, pero en 
caso contrario será necesario listar (LIST) el programa y 
examinarlo de nuevo, Para listar el programa, pulsar primero 
la tecla ENTER, ya que esta acción borra la pantalla antes 
de que aparezca la imagen del listado, También se pueden 
listar los programas pulsando LIST y después ENTER, pero 
este método no borra la pantalla, 


LINEAS NUEVAS 


Cuando se descubre un error cometido en una línea que ya ha 
sido introducida en el programa, hay dos formas de 
rectificarla; una es escribir de nuevo la línea completa 
utilizando el mismo número de línea, ya que cuando se pulsa 
la tecla ENTER, la linea nueva sustituye a la vieja, El otro 
método es editar (EDIT) la línea, Más adelante se explicará 
este método, 


10 


Algunas veces los errores en los programas reciben el nombre 
de "bugs" (duendecillos), Estos duendecillos se cuelan en 
los programas de muchas formas diferentes, 


Los ordenadores obedecen instrucciones escritas en BASIC, y 
el BASIC tiene reglas muy estrictas, Si no se siguen estas 
reglas, los programas no funcionan, Esto puede suceder 
porque el programa que se ha introducido contiene lo que es 
conocido como un "ERROR DE SINTAXIS", 


Si es éste el caso, es posible que el Spectrum nos diga cuál 
es la linea del programa que no ha comprendido, Examinar esa 
línea y compararla con la misma línea del listado impreso, 
Algunas veces el error es obvio y fácil de corregir, 

LOS ERRORES DE ESPACIAMIENTO Y DE PUNTUACION 
Cuando se escribe un programa en el ordenador hay que 


copiarlo correctamente, Incluso cosas pequeñas (como omitir 


Ll 


un espacio entre dos palabras o dejar demasiados espacios 
entre unos simbolos determinados) pueden hacer que el 
programá no dé resultado, 


También hay que tener cuidado con los signos de puntuación, 
ya que son más importantes de lo que parecen, El simbolo 
punto y coma (;) tiene un significado absolutamente 
diferente del simbolo dos puntos (;) y no se deben 
confundir, . 


LOS CEROS Y LAS O. LOS 1 Y LAS I Y L 


Un error bastante común entre los principiantes es confundir 
el 0 (cero) con la 0 (la letra 0), Utilizar siempre la tecla 
del 0 cuando se introducen números, También hay que tener 
cuidado de no utilizar las létras Lo 1 en lugar de la cifra 
1, Cuando el ZX Spectrum trabaja con números no acepta una 
"0" por un "0" o una *1" por un *1”, 


BORRADO DE LA PANTALLA 
Si se quiere borrar la pantalla, introducir la palabra clave 
CLS y pulsar ENTER, Esto no se puede hacer cuando se está 
escribiendo una línea de programa, 
BORRADO DE UN PROGRAMA 
Cuando se quiere comenzar de nuevo o simplemente pasar a 
otro programa, es conveniente borrar antes el programa 
anterior de la memoria del ordenador, Para hacerlo, 
introducir la orden; 

NEW 
y después pulsar ENTER, Hay que tener mucho cuidado, pues 


una vez borrado un programa ya no se puede recuperar, 
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EDICION DE LOS PROGRAMAS 


Aunque se pueden modificar las líneas de un programa 
escribiéndolas de nuevo, hay un método más rápido, Editar 
(EDIT) esas líneas, 


Para hacerlo, es necesario llevar el símbolo > a la línea 
que se quiere cambiar, Listar el programa y después, en el 
2X Spectrum, pulsar al mismo tiempo CAPS SHIFT y la tecla 6; 
en el 2X Spectrum+, pulsar sólo la tecla con la flecha que 
apunta hacia abajo, En la pantalla aparece el símbolo >, 


Pulsar de nuevo estas teclas y el símbolo se moverá hacia 
abajo, Pulsar al mismo tiempo CAPS SHIFT y la tecla 7 
(pulsar sólo la tecla de la flecha que apunta hacia arriba 
en el Spectrum+), y el cursor se moverá hacia arriba, 


Para la prestación EDICION (EDITING), llevar el símbolo > a 
la línea deseada y luego pulsar al mismo tiempo las teclas 
CAPS SHIFT y EDIT; la tecla EDIT es la tecla 1 en el 2% 
Spectrum, En el 2X Spectrum+ pulsar sólo la tecla EDIT, Ello 
lleva esa línea a la parte inferior de la pantalla, Ahora se 
puede editar dicha línea, 


Pulsando al mismo tiempo CAPS SHIFT y la tecla 8 (en el 2X 
Spectrum+ pulsar sólo la tecla de la flecha que apunta hacia 
la derecha), se mueve el cursor a la derecha y borra, 
Escribir las modificaciones y pulsar ENTER, La línea editada 
sustituye a la línea anterior del programa, 


Para retroceder el cursor a la izquierda, pulsar al mismo 
tiempo la tecla CAPS SHIFT y la tecla 5; en el Spectrun+ 
pulsar sólo la tecla con la flecha que señala hacia la 
izquierda, 
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Si desea que el cursor vaya a una linea en particular, por 
ejemplo en la línea 30, debe teclear; 


LIST 30 


Esto hace que el cursor se sitúe directamente en la línea 
especificada, en este caso la línea 30, 


£ 


REGISTRO DE DATOS 


Los sistemas informáticos se utilizan como archivos porque 
son enormemente prácticos para almacenar información y 
volverla a recuperar, 


Los ordenadores están capacitados para buscar rápidamente 
cualquier información e imprimirla en la pantalla, y ello 
ahorra gran cantidad de tiempo a muchas organizaciones y 
empresas de todo tipo, 


Todavia hay quien sigue guardando la información en papeles 
archivados en bibliotecas o ficheros, cuando los sistemas 
informáticos pueden guardar esa misma información sin ocupar 
apenas espacio, 


La información almacenada en los ordenadores suele recibir el 


nombre de "datos", Lo que hace el ordenador en su función de 
almacenamiento y clasificación de datos se conoce con el 
nombre de "tratamiento de datos" o "proceso datos", 


Los microordenadores como el 2X Spectrum pueden servir para 


procesar datos, Es indudable que no son tan potentes como los 


ordenadores que tienen los bancos u otras firmas, pero ello 
no obsta para que puedan servir para aprender cosas sobre el 


tratamiento de datos, El ordenador no sustituirá en principio 
a la agenda de direcciones, pero si hay datos para los que es 


más fácil - y más divertido - utilizar el Spectrun, 
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PROGRAMA 1: CONTRASEÑA 


Al intentar ejecutar el programa 1, el ordenador pide al 
usuario un número de código, Si el usuario da el número 
correcto, el ordenador imprime una cordial bienvenida, pero 
si da un número equivocado ya no es tan bienvenido, 


La linea 20 selecciona los colores, La instrucción BORDER O 
decide el color del borde de la pantalla, 


Sobre las teclas l a 7 y 0 se pueden leer los nombres de los 
colores respectivos, El número de cada tecla es, por lo 
tanto, el código de ese color, En consecuencia, para tener un 
borde azul habrá que teclear BORDER 1, para tener un borde 
rojo habrá que teclear BORDER 2, y así sucesivamente, 


La instrucción PAPER se refiere al área central de la 
pantalla, Con PAPER 0 aparece en negro, 


La instrucción INK selecciona el color de todo lo que salga 
en la pantalla, INK 7 selecciona el color blanco, 


La instrucción CLS del final de la línea sirve para limpiar 
la pantalla (son las iniciales de Clear Screen, limpiar la 
pantalla en inglés), Los colores nuevos no entrarán en 
funciones hasta que no se haya limpiado la pantalla, 


Comprobar que se han escrito correctamente todos los simbolos 
de las lineas 20 y 30, No confundir el signo de dos puntos 
(;) con el del punto y coma (;) pues en el BASIC del 2% 
Spectrum surten efectos totalmente distintos, 


La linea 30 introduce la contraseña numérica escrita por el 
usuario y la almacena como la variable "codigo", 


Las lineas 40 y 50 comparan el contenido de "codigo" con el 
número de código programado, el 3752; la línea 40 comprueba 
si el código-contraseña está equivocado y si es asi imprime 
en la pantalla el mensaje de esa linea, 
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La linea 50 comrprueba si ha sido intrpoducido el código 
correcto y, si es asi, imprime en la pantalla el mensaje de 
esa linea, 


Introducir: 


10 REM % NUMERO DE CODIGO * 

20 BORDER 0: PAPER 0; INK 7; CLS 

30 INPUT "Codigo numerico por favor?";codigo 

40 IF NOT codigo=3752 THEN PRINT"Incorrecto, Acceso 
denegado," 

50 IF codigo=3752 THEN PRINT "Hola, bienvenido," 


'TRODUCC 


Al ejecutar programas que, como éste, incluyen alguna 
instrucción INPUT,se verá en la pantalla un signo de 
interrogación y a continuación un cursor intermitente, El 
ordenador está pidiendo una respuesta, 


Escribir la respuesta y luego pulsar ENTER; la pulsación de 
ENTER introduce la respuesta en la memoria del ordenador, 
Ahora el programa puede seguir adelante, 
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RESTABLECIMIENTO DE LA IMAGEN EN LA PANTALLA 


Cuando se cambian los colores resulta difícil leer los 
listados, Para restablecer la imagen a la normalidad, incluir 
al final del programa una línea como ésta: 


1000 PAUSE 0; PAPER 7; BORDER 7; INK 0:CLS 


Hemos asignado a esta linea un número suficientemente alto 
para que se pueda añadir a los programas sin necesidad de 


cambiar cada vez ese número de línea, 


La instrucción PAUSE 0 hace que el ordenador pase al estado 
de espera y no ejecute las instrucciones siguientes hasta que 
el usuario pulse una tecla, 


El resto de la línea restablece los colores normales de la 
pantalla con objeto de que sea más fácil leer los listados de 
programas que se vayan a visualizar, Cuando el programa llega 
a su fin, pulsar cualquier tecla y se estará en condiciones 
de listar el programa en blanco y negro, 


PROGRAMA 2; EVALUACION DE LA EDAD 


La comparación de información es uno de los aspectos más 
importantes del procesamiento de datos, El 2X Spectrum pude 
comparar números y decir si uno es mayor o menor que otro, 


El programa 2 se sirve de esta prestación para decir al 
usuario qué cosas puede o no hacer en función de su edad, 


La línea 50 pregunta el nombre del usuario y la línea 60 lo 
almacena como la variable n$, La linea 50 pregunta la edad y 
la linea 90 la introduce como la variable "edad", 

Las lineas 100 a 150 contrastan el contenido de la variable 


"edad" con una gama de números, Cada linea compara el 
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contenido de la variable "edad" con un número y en función de 
que sea mayor o menor que ese número, la linea toma la 
decisión de imprimir o no la información, El signo < 
significa "menor que" y el signo >» significa "mayor que", 


Introducir: 


10 REM * COMPARACION DE NUMEROS * 

20 BORDER 5: PAPER 5; INK 0; CLS 

30 PRINT "EVALVACION DE LA EDAD" 

40 PRINT "aaa ooicicioj! 

50 PRINT "Hola, como te llamas?" 

60 INPUT n$ 

70 PRINT "Hola ";¡n$; 

$0 PRINT "Que edad tienes? 

90 INPUT edad; PRINT 

100 IF edad>13 THEN PRINT "Tienes edad para ir a la 
escuela secundaria” 

110 IF edad<14 THEN PRINT "Todavia tienes que ir a la 
escuela primaria" 

120 1F edad>16 THEN PRINT "Tienes edad para conducir 
ciclomotores" 

130 IF edad<17 THEN PRINT "Eres demasiado joven para 
ir al servicio militar" 

140 IF edad>17 TREN PRINT "Tienes edad para trabajar" 

150 IF edad<18 THEN PRINT "Eres demasiado joven para 
votar" 
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MENSAJES INFORMATIVOS 


Cuando un programa ha sido ejecutado sin problemas sale en el 
borde inferior izquierdo de la pantalla un mensaje como éste: 


0 OK, 150:1 


Es un "mensaje informativo" que dice que el programa ha sido 
ejecutado con éxito, Hay muchos tipos de mensajes 
informativos; el apéndice B del Manual de Programación en 
BASIC del 2X Spectrum explica cada uno de ellos, 


PROGRAMA 3; CALCULO DEL TOTAL 


El programa 3 pide introducir una secuencia de números y 
luego los suma, Este tipo de programa recibe a veces el 
nombre de CONTADOR, Los contadores son de gran utilidad en el 
procesamiento de números; pueden llevar totales y parciales, 


La linea 30 pone a 0 el valor inicial de la variable "total", 
Los números que se escriban serán sumados a esa variable, 


El usuario introduce un número en la línea 100, La linea 110 
comprueba si es 0 y, si lo es, hace que el programa salte a 
la línea 150, No introducir, por lo tanto, el 0 todavía, 
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La línea 120 imprime ese número en la pantalla y la linea 130 
lo suma a la variable "total", 


La instrucción 60 TO de la línea 140 envía el programa de 
vuelta a la linea 100 con vistas a que el usuario pueda 
introducir el siguiente número a sumar, Este conjunto de 
instrucciones recibe el nombre de BUCLE porque permite hacer 
uso de una parte de un programa una y otra vez, 


La linea 150 imprime la suma fina? de todos los números, 
Introducir: 


10 REM * CALCULO DEL TOTAL 4 

20 BORDER 7; PAPER 7: INK 0: CLS 
30 LET total=0 

40 PRINT "CALCULO DEL TOTAL" 

50 PRINT *=--============.=.- A 

60 PRINT "Este programa suma los" 
7. PRINT "numeros introducidos," 
80 PRINT "Pulsar la tecla 0 para obtener el total," 
90 PRINT 

100 INPUT numero 

110 IF numero=0 THEN 60 TO 150 
120 PRINT numero 
130 LET total=total+numero 
140 60 TO 100 
150 PRINT "TOTAL = "¡total 
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Todos los programas de este libro comienzan por una 

- instrucción "REM" (línea 10), REM significa observaciones 
-— (REMark en inglés) y sirve para describir brevemente el 

- programa, 


$e pueden poner instrucciones REM allá donde se quiera, y se 

pueden dejar de poner sin que ello afecte en lo más minimo a 
la ejecución del programa; pero es mejor ponerlas, No siempre 

es fácil decir qué hace un programa mirando su listado; por 
eso son de gran utilidad las instrucciones REM, 


PROGRAMA 4: CALCULO DE LA MEDIA 


El programa 4, como el programa 3, suma números, pero éste 
imprime también su valor medio (media), 


La linea 30 pone a 0 la variable "total" y la variable 
"entradas", La línea 120 incrementa en l el contenido de la 
variable "entradas" cada vez que se hace una nueva entrada, 


Para saber el total, pulsar la tecla del 0, Las lineas 150 a 
180 imprimen la información "procesada" por el programa, 


La linea 120 divide la suma total (total) por el número de 
entradas almacenadas (entradas), Esta es la media de los 
números introducidos, 


Introducir: 


10 REM X CALCULO DE LA MEDIA * 
20 BORDER 7: PAPER 7: INK 0; CLS 
30 LET total=0; LET entradas=0 
40 PRINT "TOTAL 4 MEDIA" 


60 PRINT'"Escriba los numeros:” 

70 PRINT'"(Pulse O para el total)" 

20 PRINT 

90 INPUT numero 

100 IF numero=0 THEN GO TO 150 

110 PRINT numero 

120 LET entradas=entradas+] 

130 LET total=total+numero 

140 60 TO 90 

150 PRINT'"Ha introducido "¡entradas;" numeros" 
160 PRINT' "Suman "total 

170 PRINT'"La media de estos "¡entradas;" numeros " 
180 PRINT "es ":total/entradas 


Componer pantallas fáciles de leer es casi tan importante 
como conseguir que los programas funcionen, Hay que pensar 
siempre en el aspecto que va a ofrecer la pantalla de un 
programa cuando se ejecute, 


Se pueden separar en la pantalla conjuntos de información 
dejando lineas en blanco; para ello basta incluir una PRINT, 


Otra forma de dejar una línea en blanco consiste en poner un 
apóstrofe ('), tecla 7, tras la palabra PRINT, 
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PROGRAMA 5: CONCURSO "LA VUELTA AL MUNDO" 


El programa 5 pone a prueba el conocimiento del usuario sobre 
edificios famosos del mundo y muestra cómo comparar y 
contrastar palabras y números, 


También incluye un contador para estar así en disposición de 
imprimir un marcador final al acabar el concurso, La linea 40 
pone a 0 la variable M (de marcador), 


Las lineas 50 a 80 explican el concurso, La primera pregunta 
está en la línea 90 y se refiere al rascacielos Empire State, 


Si se da la respuesta correcta, la línea 110 dice al 2% 
Spectrum que imprima en la pantalla una felicitación y suma 
un | al marcador; si se da una respuesta incorrecta, la linea 
120 así lo hace saber, Las demás preguntas del concurso 
siguen el mismo proceso, 


Las líneas 260 a 280 imprimen el marcador final, La 
instrucción FLASH 1 de la linea 270 hace que lo que salga en 
pantalla a continuación aparezca y desaparezca de manera 
intermitente, La instrucción FLASH O de la línea 280 
desconecta la intermitencia con objeto de que el resto salga 
impreso normalmente, 


Hacer pruebas modificando este listado para programar 
concursos sobre cualquier otro tema, 


Introducir: 


10 REM *% LA VUELTA AL MUNDO % 

20 BORDER 4; PAPER 4: INK 0; CLS 
30 POKE 23658,8 

40 LET M=0 

50 PRINT "CONCURSO DE CIUDADES" 


70 PRINT'"En que ciudades se" 

20 PRINT'"encuentran estos edificios?" 

90 PRINT'"El rascacielos Empire State" 

100 INPUT A$; PRINT . 

110 IF A$="NUEVA YORK" THEN PRINT "Muy bien"; LET 
M=M+1 

120 IF NOT A$="NUEVA YORK" THEN PRINT "Respuesta 
incorrecta" 

130 PRINT'"El Taj Mahal" 

140 INPUT A$: PRINT 

150 IF A$="AGRA" THEN PRINT "Muy bien";¡LET M=M+] 

160 IF NOT A$="AGRA" THEN PRINT "Respuesta incorrecta" 

170 PRINT'"El Kremlin" 

180 INPUT A$: PRINT 

190 IF A$="MOSCU" THEN PRINT "Muy bien"; LET M=M+] 

200 IF NOT A$="MDSCU" THEN PRINT "Respuesta 
incorrecta" 

210 PRINT'"La Torre Eiffel" 

220 INPUT A$: PRINT 

230 IF A$="PARIS" THEN PRINT "Muy bien": LET M=M+] 

240 IF NOT A$="PARIS" THEN PRINT "Respuesta 
incorrecta" 

250 PAUSE 100:CLS 

260 PRINT "Ha acertado "; 

270 FLASH 1: PRINT M; 

280 FLASH O:PRINT *" de 4" 
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MAYUSCULAS Y MINUSCULAS 


Cuando el ordenador comprueba las respuestas del usuario a 
las preguntas programadas, sólo da por ciertas las que están 
escritas exactamente ¡igual que en el programa, Si se escriben 
las respuestas del programa 5 en letras minúsculas, el 


ordenador dirá que las respuestas son incorrectas, 


Para evitar este problema hay que hacer entrar en funciones 
al cursor C con objeto de que todas las letras tecleadas sean 
mayúsculas, La instrucción POKE 23658,8 se encarga de hacerlo 
(en el programa 5 está en la línea 30), 


PROGRAMA 6: UNA MATRIZ 


El programa £ muestra la forma de empleo de una "matriz", Una 
matriz es un grupo de datos relacionados; en este caso es el 
conjunto de días de la semana, Todos estos datos están 
almacenados bajo un solo nombre de variable, 5$, pero cada 
día está identificado además por un número, 


Para estar en condiciones de almacenar datos en una matriz 
hay que reservar espacio para ella en la memoria del 
ordenador con una instrucción DIM (de dimensión), La de la 
línea 20 va seguida por el nombre de variable $$ y dos 
números encerrados entre paréntesis, 


El primer número establece el número Je datos que va a 
contener la matriz, 


El segundo número establece el número máximo de letras de 
cada palabra a almacenar en la matriz, En caso de querer 
almacenar todas las letras de todas las palabras, ese número 
debe corresponder a la longitud de la palabra más larga, que 
en este caso es de 9 letras, 
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Las lineas 30 a 30 definen cada una de las siete variables, 
Siempre que sale el nombre de variable $$, va a continuación 
un número encerrado entre paréntesis que recibe el nombre de 
SUBINDICE, 


Cuando se ejecuta el programa, éste pide un número y luego 
imprime en la pantalla el día de la semana cuyo subindice es 
ese número, 


Introducir; 


10 REM *X UNA MATRIZ 4 

20 DIM 5$(7,9) 

30 LET 5$(1)="LUNES" 

40 LET 3$(2)="MARTES" 

50 LET S$(3)="MIERCOLES" 

60 LET 59(4)="JUEVES" 

70 LET S$(5)="VIERNES" 

30 LET 5$(6)="SABADO" 

90 LET S$(7)="DOMINGO" 

100 PRINT "INTRODUZCA UN NUMERO DEL 1 AL 7" 
110 INPUT NUM 

120 1F NUM>7 THEN CLS; 60 TO 100 
130 PRINT'"EL DIA "¡NUM;" ES "; 
140 PRINT S$(NUM) 


En el programa 7 se pide al usuario que escriba un número del 
l al 7, ¿Qué ocurre si se escribe un número más alto que el 
7?, Lo normal es que el programa se bloquee, 


La linea 120 resuelve este problema comprobando si ha sido 
escrito un número mayor que 7: si es así envía el programa de 
vuelta a la línea 100, Las líneas de este tipo se conocen con 
el nombre de trampas para errores, porque se ocupan de las 
respuestas ilegales, 
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PROGRAMA 7; UNA MATRIZ CON UN BUCLE 


Este programa muestra la forma de empleo de una matriz con un 
bucle FOR,,,NEXT, Con este tipo de bucle se puede conseguir 
que una variable represente a toda una gama de números, 


El programa relaciona un número de conceptos y pide escribir 
el precio de cada uno, Al final, el programa dice a cuanto 
sube la cuenta, 


Las lineas 40 a 110 definen cada concepto de la matriz, 


La linea 120 pone a 0 la variable "costo", La línea 200 se 
encargará de sumar a la variable "costo" los precios que se 
vayan introduciendo, 


La linea 160 establece un bucle encargado de imprimir la 
lista de conceptos almacenados en la matriz, La variable N 
corresponde al subindice, que puede ser del ] al Y, 


Tras imprimir cada concepto de la lista, el bucle pide su 
precio, La linea 200 suma ese precio a la variable "costo", 


La linea 210 utiliza la instrucción NEXT N para enviar el 
programa de vuelta a la linea 160 con objeto de que imprima 


el siguiente concepto de la matriz, Una vez procesados todos 
los conceptos, el programa pasa a las lineas 220 y 230, que 
imprimen el costo final, 


Introducir: 


10 REM X MATRIZ Y BUCLE 4 
20 BORDER 5: PAPER 5: INK 0: CLS 
20 DIM S$$(3,T0) 

40 LET 5$(1)="LECHE" 

50 LET 5$(2)="PAN" 

50 LET 5$5(3)="ACEITE" 

70 LET 5$(4)="FRUTA" 

30 LET 5$(5)="HUEVOS" 

90 LET 5$(6)="VEGETALES" 
100 LET 5$(7)="CARNE" 

110 LET S$(8)="PESCADO" 

120 LET costo=0 

130 PRINT "LISTA DE COMPRAS" 


160 FOR N=] TO 8 

170 PRINT S$(N):" ? "; 

180 INPUT precio 

190 PRINT precio 

200 LET costo=costo+precio 

210 PRINT; NEXT N 

220 PRINT'"Su cuenta es de Ptas, "; 
230 PRINT costo 


El programa 2 muestra que se puede almacenar la información 
en instrucciones DATA, que son listas de información que 
puede ser leida (READ) por el programa en ciertos puntos, La 
información está constituida en este caso por nombres y 
fechas, Las líneas 30 y 40 definen dos matrices; la primera 
almacena los nombres y la segunda las fechas de aniversario, 
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La linea 90 establece un bucle, La línea 100 se sirve de la 
palabra reservada READ para hacer que el ordenador lea la 
información almacenada en las DATA (líneas 130 a 150), 


Al almacenar datos en una línea DATA hay que hacerlo en el 
orden correcto, En este programa la línea 100 lee primero los 
nombres de las personas y luego las fechas de aniversario, 


Introducir: 


10 REM % READ Y DATA % 

20 BORDER 6; PAPER 6: INK 0; CLS 

30 DIM N$(6,8) 

40 DIM F$(6,15) 

50 PRINT "FECHAS DE ANIVERSARIO" 

60 PRINT "ERROR OOO 

70 PRINT "NOMBRE" "ANIVERSARIO" 

80 PRINT 

90 FOR N=1 TO 6 

100 READ N$(N),F$(N) 

110 PRINT N$(N),F$(N) 

120 NEXT N 

130 DATA "Juan","7 de Mayo", "Lina","12 de Marzo" 

140 DATA "Simon","17 de Marzo", "Julia", "30 de Marzo" 
150 DATA "Javier","17 de Agosto" "Alex","4 de Octubre" 


PROGRAMA 9: SELECCION DE UN NOMBRE 


El programa 9 es similar al 8 pero ahora, cuando el usuario 
escribe un nombre, el ordenador presenta su fecha de 
cumpleaflos sin listar ningún otro nombre o fecha, 


Este programa hace una demostración de las posibilidades del 
ordenador para clasificar y seleccionar información, 


La línea 70 pide un nombre y, después, el programa lo busca 
en la lista de datos almacenados en instrucciones DATA, 


Si encuentra ese nombre, el programa imprime la fecha de 
aniversario de esa persona, Á tal efecto, imprime la fecha 
que tiene el mismo SUBINDICE que el nombre elegido, Las 
lineas 200 y 210 presentan esta información "procesada", 


Si el nombre elegido no está en la lista, el programa va a la 
línea 170 y así lo hace saber, Si no se está de acuerdo con 
ello, hacer la prueba otra vez; ¿no se habrá escrito el 
nombre de forma distinta a como está escrito en la 
instrucción DATA? 


La palabra reservada STOP de la línea 190 evita que el 
programa pase a ejecutar las lineas siguientes, 
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Introducir: 


10 REM *SELECCION DE UN NOMBRE * 

20 BORDER 6; PAPER 6: INK 0; CLS 

30 POKE 23658,0 

40 DIM N$(6,8); DIM F$(6,15) 

50 PRINT "SELECCION DEL ANIVERSARIO" 

60 PRINT "aaa ooo iooojo" 

70 PRINT "De quien quiere saber el aniversario?" 
80 PRINT 

90 INPUT C$ 

100 FOR N=] TO 6 

110 READ N$(N),FS$CN) 

120 IF C$=N$(N,1 TO LEN C$) THEN 60 TO 200 

130 NEXT N 

140 DATA "Juan" ,"7 de Mayo" "Lina","12 de Marzo" 
150 DATA "Simon","17 de Marzo" "Julia","30 de Marzo" 
160 DATA "Javier","17 de Agosto", "Alex" ,"4 de Octubre" 
170 PRINT'"El nombre que ha escrito" 

180 PRINT "no esta en la lista" 

190 STOP 
200 PRINT "El aniversario de ";¡C$:" es el;- " 
210 PRINT F$(N) 


COMPROBACION DE LOS ESPACIOS EN BLANCO 

La matriz del programa 9 permite asignar 8 letras a cada 
nombre almacenado, Las letras no utilizadas por los nombres 
de menos de 8 letras quedan almacenadas como espacios en 
blanco que siguen a la última letra, Cuando el 2X Spectrum 


compara estos nombres con el introducido, comprobará si el 
nombre es idéntico, incluyendo también los espacios, 


La linea 120 se encarga de resolverlo, Calcula la longitud 
del nombre introducido mediante la palabra reservada LEN y 
compara ese nombre con ese mismo número de letras (desde el 
principio) de cada concepto de la matriz, Por lo tanto, ya no 
es preciso escribir los espacios en blanco tras el nombre, 
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DATOS  MEZCLADOS 


PROGRAMA 10: DATOS MEZCLADOS 


Los ordenadores pueden clasificar y procesar diversos bloques 
de información de muchas y muy distintas formas, 


Aqui la información son nombres, edades y estudios, Los datos 
están almacenados en las DATA de las lineas 320 a 390, 


Las instrucciones DATA sólo utilizan comillas en torno a las 
palabras; los números no las necesitan, La variable A (sin 
$) indica que sirve para almacenar números, no palabras, 


La instrucción DIM de la línea 60 reserva espacio para estas 
DATA, La línea 50 las lee (READ) en la memoria, por un bucle 
que repite el proceso ocho veces, una para cada DATA, 


Este proceso almacena los datos en diversas categorías, Las 


lineas 120 a 170 seleccionan los nombres de las personas de 
dieciocho años, La línea 180 imprime un espacio en blanco, 


32 


La línea 190 es de la mayor importancia: la palabra RESTORE 
ordena al Spectrum que vuelva al principio de las DATA antes 
de ejecutar la siguiente parte del programa; es necesario 
hacerlo para poder procesar otra vez esa misma información, 


Las líneas 200 a 250 imprimen los nombres de quienes están en 
la Escuela Primaria, Al final se repite proceso para imprimir 
los nombres de quienes están en la Escuela Secundaria, 


La selección de estos datos está a cargo de las instrucciones 
IF,,,THEN de las líneas 160, 230 y 300, que comparan los 
datos con las condiciones establecidas en esas lineas, 


Introducir: 


10 REM * DATOS MEZCLADOS * 

20 BORDER 6: PAPER 6: INK 0; CLS 
30 PRINT "PROGRAMA DE LISTAS" 
40 PRINT "=oo=oo====n===om=o A 
50 PRINT 

60 DIM N$(8,8); DIM A(8); DIM S$(8,15) 
70 FOR N=1 TO 8 

80 READ N$(N) AN), S$(N) 

90 NEXT N 

100 PRINT 

110 RESTORE 

120 PRINT "Dieciocho anos ; " 
130 PRINT 

140 FOR N=1 TO 8 

150 READ N$(N) ACN),S$(N) 

160 IF A(N)=18 THEN PRINT N$(N) 
170 NEXT N 

180 PRINT 

190 RESTORE 

200 PRINT "Estudian Primaria: " 
210 PRINT: FOR N=1 TO 8 

220 READ N$C(N) AN), S$IN) 


El listado continúa en la página siguiente 
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230 1F S$(N,1 TO 8)="Primaria" THEN PRINT N$(N) 
240 NEXT N 

250 RESTORE :PRINT 

260 PRINT "Estudian Secundaria: " 

270 PRINT 

280 FOR N=1 108 

290 READ N$(N) AN) ,S$(N) 

300 IF S$(N,1 TO 10)="Secundaria" THEN PRINT N$(N) 
310 NEXT N “ 

320 DATA "Juana",14 "Secundaria" 

330 DATA "Esteban",8, "Primaria" 

340 DATA "Angela",18 "Universidad" 

350 DATA "Santiago",12,"Primaria" 

360 DATA "Alicia",18, "Universidad" 

370 DATA "Javier", 8, "Primaria" 

380 DATA "Victor", 15, "Secundaria" 

390 DATA "Daniel",18, "Universidad" 


PROGRAMA 11: MENU DE COLORES 


El programa 11 constituye otro ejemplo de la forma de agrupar 
y seleccionar información contenida en el seno del programa, 
Este programa presenta un "menú" de colores, cada uno de 
ellos con un número al lado, Para averiguar cómo obtener un 
color concreto a partir de colores base basta teclear el 
número de ese color, 


En este programa la información está almacenada en 
SUBRUTINAS, Una subrutina es una parte de un programa que se 
puede invocar (llamar) más de una vez en el curso del 
programa, utilizando a tal efecto la instrucción G0 SUB, 


Las lineas 70 a 100 leen e imprimen los nombres de los 
colores, Los datos están almacenados en las lineas 270 y 230, 


Las líneas 110 a 140 piden un color, En función de la tecla 
pulsada, el programa "llamará" a la subrutina y ésta dirá 
cómo obtener el color elegido, 


Las subrutinas se pueden "llamar" de muchas formas, En este 
programa, el número de menú del color está relacionado con un 
número de linea especifico del programa; la linea 150 toma el 
número elegido, lo multiplica por 10 y suma 200, Este valor 
queda almacenado en la variable "eleccion", 


El programa va entonces a la subrutina cuyo número de linea 
es el número de la variable "eleccion", Si se ha elegido el 
color naranja, cuyo número del menú es el 1, la variable 
"eleccion" queda puesta a (1%10+200) = 210, 


Las subrutinas de esas líneas acaban corr la palabra RETURN, 
Esta palabra reservada devuelve el programa a la línea 
siguiente a la instrucción 60 SUB, en este caso a la linea 
170, La palabra RETURN es muy importante: si no se pone, el 
programa pasará a la siguiente linea en vez de volver al 
programa principal, 
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La línea 170 pregunta al usuario si desea obtener otro color, 
Si se contesta $, el programa vuelve al principio y, en caso 
contrario, el programa pasa a la línea 200, La instrucción 
STOP de esta linea es muy importante; detiene el programa 
impidiéndole pasar a las subrutinas, Sin esta instrucción el 
programa quedaría bloqueado aquí, 


Introducir: 


10 REM % MENU DE COLORES * 

20 BORDER 6: PAPER 6: INK 0; CLS 

30 DIM C$(6,8) 

40 PRINT "MEZCLAS DE COLORES" 

50 PRINT "--—---==--=--==-=-==-" s 

60 PRINT 

70 FOR L=1 TO 6 

80 READ C$(L) 

90 PRINT L;",";C$(L) 

100 NEXT L 

110 PRINT "Para obtener" 

120 PRINT "uno de estos colores," 

130 PRINT "introducir su número," 

140 INPUT "Elija uno,",X 

150 LET eleccion=X*10+200 

160 PRINT: 60 SUB eleccion 

170 PRINT "Otra vez, S o N?" 

180 POKE 23658,8: INPUT as 

190 IF a$="S5" THEN RESTORE: 60 TO 10 
200 PAUSE 0: STOP 
210 PRINT "Naranja;mezclar amarillo y rojo"; RETURN 
220 PRINT "Verde:mezclar amarillo y azul"; RETURN 
230 PRINT "Morado:¡mezclar rojo y azul"; RETURN 
240 PRINT "Gris:mezclar negro y blanco"; RETURN 
250 PRINT "Marron:mezclar rojo y verde": RETURN 
260 PRINT "Rosa:mezclar blanco y rojo"; RETURN 
270 DATA "NARANJA" "VERDE", "MORADO" 
280 DATA "GRIS" "MARRON", "ROSA" 
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PROGRAMA 12: ENCUESTA 


El programa 12 es una encuesta, Empieza efectuando una serie 
de preguntas sobre el sexo, la edad y el dinero, dirigidas a 
un grupo de personas, Una vez reunidas las respuestas, 
presenta esta información en forma estadistica, 


Las lineas 60 a 110 explican la encuesta y establecen el 

número de personas a encuestar, Este número, elegido por el 
usuario del programa, se introduce en la linea 110, Después, 
la linea 150 reserva la memoria necesaria para las matrices, 


Las lineas 160 a 320 se sirven de un bucle para hacer una 
serie de preguntas a cada persona de la encuesta, En el 
interior del bucle hay cuatro contadores, líneas 220, 230, 
260 y 300, Estos contadores se encargan Je sumar la 
información escrita a las variables V (varones), H (hembras), 
A (afios) o D (dinero), puestas a 0 por la línea 30, 


Las líneas 340 a 450 imprimen los resultados de la encuesta, 
En primer lugar, la encuesta hace saber el número de varones 


y hembras encuestados, La información relativa a este punto 
procede de las variables V y H, 
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Después, calcula la edad media de las personas encuestadas 
dividiendo el número total de años, almacenados en la 
variable A, por el número total de personas encuestadas, 
almacenado en la variable "nun", 


Por último, calcula la cantidad media de dinero dividiendo 
la variable D por la variable "nun", 


La subrutina de la línea 500 ofrece la posibilidad de ver 
cada conjunto de resultados independientemente, pulsando a 
tal efecto la tecla 0, Esta prestación puede ser de gran 
utilidad en el caso de que la encuesta abarque a un grupo de 
personas muy numeroso y la información resultante quede 
demasiado aglomerada en la pantalla, 


Introducir: 


10 REM * ENCUESTA * 

20 BORDER 5: PAPER 5; INK 0; CLS 

30 LET V=0; LET H=0; LET A=0; LET D=0 
40 PRINT "PROGRAMA ENCUESTA" 

3% PRO "ems ] 

60 PRINT "Este programa permite reunir" 
70 PRINT "informacion sobre un grupo de" 
30 PRINT "personas, Cuantas personas" 
90 PRINT "forman ese grupo?" 

100 POKE 23658,8 

110 INPUT "Escriba ese numero;”;num 

120 PRINT "El programa hara ahora una" 
130 PRINT "serie de preguntas a cada" 
140 PRINT "persona,";60 SUB 500 

150 DIM N$(num,12);DIM Elnum);DIM P(nun) 
160 FOR T=1 TO num 

170 PRINT "Persona numero ";T 

120 PRINT "Su nombre, por favor?" 

190 INPUT N$CT) 
200 INPUT "Varon o Hembra?" 
210 INPUT "V 0 H,",S$ 
220 IF S$="Y" THEN LET V=4+1 
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230 1F S$="N" THEN LET H=H+1 

240 PRINT '"Su edad, por favor" 

250 INPUT "Edad en anos";E(T) 

260 LET A=A+E(T) 

270 PRINT'"Cuanto dinero" 

280 PRINT "gasta a la semana," 

290 INPUT "en pesetas?";¡P(T) 

300 LET D=D+P(T) 

310 PRINT'"Gracias"; PAUSE 50 

320 CLS; NEXT T 

330 PAUSE 50; CLS 

340 PRINT "RESULTADOS DE LA ENCUESTA" 
IDO PARENT Pesommenicnca seran enano renace 
360 PRINT "El grupo tiene "¡num;" miembros," 
370 PRINT'H;" hembras, y" 

380 PRINT V;" varones"; GO SUB 500 
390 PRINT'"Sus nombres son; " 

400 PRINT; FOR t=1 TO num 

410 PRINT N$(t,1 TO 12)  : 

420 NEXT t; GD SUB 500 

430 PRINT'"Su edad media es; " 

440 PRINT A/num;" anos";G0 SUB 500 
450 PRINT'"Dinero por semana; " 
460 PRINT D/num;" Ptas" 

470 PAUSE 0; STOP 

500 PRINT'"Pulse la tecla 0 para continuar" 
510 PAUSE 0; CLS; RETURN 


PROGRAMA 13: DESMEMBRACION DE CADENAS 


El ordenador puede dividir o "desmembrar" una cadena de 
muchas formas distintas (una cadena es un grupo de 
caracteres), El programa 13 muestra la forma de hacerlo, 


El programa enumera los nombres de seis personas y sus 
números de teléfono, Cada bloque de información está 
almacenado en una cadena, La línea 30 define una matriz S$ 
con capacidad para contener seis bloques de datos, cada uno 
de once caracteres, La línea 40 establece un bucle que lee 
los datos de las instrucciones DATA de las líneas 120 a 170, 


La línea 70 imprime los primeros cuatro caracteres de cada 
cadena, a partir del principio, 


La linea 90 imprime los siguientes tres caracteres (el 
quinto, el sexto y el séptimo) y un espacio, 


La linea 100 imprime los cuatro últimos caracteres, desde el 
octavo hasta el final de la cadena, 


Obsérvese que en las cadenas se pueden almacenar números al 
lado de palabras, De todas formas, estos números no se pueden 
utilizar en cálculos matemáticos, 


Introducir: 


10 REM * DESMEMBRACION DE CADENAS % 
20 BORDER 6; PAPER 6; INK 0; CLS 
30 DIM S$(6,11) 

40 FOR N=1 TO 6 

50 READ S$(N) 

£0 PRINT "NOMBRE; "; 

70 PRINT S$(N,1 TO 4) 

30 PRINT "NUMERO DE TELEFONO: "; 
90 PRINT S$(N,5 TO 7);" *; 

100 PRINT S$(N,8 TO 11) 

110 PRINT; NEXT N 

120 DATA "JUANA356721" 

130 DATA "ROSA9803426" 

140 DATA "MARIS723910" 

150 DATA "PEPE2405680" 

160 DATA "LISA4459093" 

170 DATA "TONY4679200" 


CADENAS SIMPLES 


El almacenamiento de datos en cadenas simples ahorra espacio 
de memoria y tiempo de tecleado, Es muy importante que cada 
cadena del programa tenga siempre el mismo formato, 


En el programa 13, lo dicho significa que los primeros cuatro 
caracteres constituyen el nombre de la persona y los siete 
restantes componen su número de teléfono, Este programa sólo 
permite escribir las primeras cuatro letras del nombre, 


PROGRAMA 14; NUMEROS DE CODIGO * 


Para almacenar palabras o letras, los ordenadores las pasan a 
números puesto que toda la información de un ordenador está 
codificada y almacenada en forma numérica, El sistema de 
códigos más utilizado es el llamado código ASCII, 
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El programa 14 demuestra este punto, Los números 65 a 90 son 
los códigos de un grupo concreto de caracteres, 


Los números se pueden convertir en los caracteres que 
representan con la palabra CHR$ (en la tecla U), Este 
programa pone en un bucle los números, del 65 al 90, con la 
variable C: el bucle procesa esos números uno por uno, Para 
ver los caracteres basta ejecutar el programa, 


Introducir; 


10 REM * CODIGOS ASCII + 

20 BORDER 7: PAPER 7; INK 0; CLS 
30 FOR C=65 TO 90 

40 PRINT "CODIGO ASCII ";C; * =>"; 
50 PRINT CHR$(C) 

60 PAUSE 20 

70 NEXT C 


ACERCA DE LOS CODIGOS ASCII 


Muchos códigos numéricos del sistema ASCII representan a las 
mismas letras y números en diferentes ordenadores, pero otros 
utilizan códigos numéricos para ciertos simbolos o figuras, 


Cambiar la línea 30 del programa 14 para averiguar a qué 
corresponden en el 2% Spectrum los códigos ASCII 129 a 143, 


MIDA PPPPDODUDDY 


DAI AAA AA AAA A AA 0444 HH 
HAHAHA A HA AH AAA AAA AA AA A 
IDODODODOODODODODODOOCLA 
OI 
mradadadadadadadadaddad 


1000000000000000000000 
POCO CC CC CL LC CC CL CO 
YH AAA AAA AAA AA AAA AAA 


100000000000000000000U 
FMMMOODOODOO0O0O0DOOOOOOO0O 


A A A 


PEPE ETE TE Ta TA A DIA A IA IIA IA IA IA IA IA 


El programa 15 se sirve de la prestación de convertir letras 
en números para reordenar los componentes de una lista, El 
programa pide introducir una relación de nombres y números y 
luego pide que se elija entre clasificar esta información en 
orden alfabético o en orden numérico, 


Estos programas reciben el nombre de "clasificaciones", La 
clasificación de listas largas en un orden determinado es un 
trabajo que los ordenadores hacen a la perfección, La hecha 
aqui implica comparar cada concepto de datos con todos los 
demás y reordenarlos, El ordenador hace este proceso una y 
otra vez hasta que todos los datos estén ordenados, 


La línea 40 pide el número de nombres-que tendrá la lista, 
Este número sirve para establecer el tamaño de la matriz en 
la línea 50, Después se define un bucle que se encargue de ir 
recogiendo los nombres y puntos de la lista, 


Las líneas 110 a 160 preguntan qué tipo declasificación se 


quiere hacer: alfabética o numérica, Según la respuesta, el 
programa pasa a la subrutina de la linea 200 o de la 300, 
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Estas subrutinas utilizan un bucle para recorrer la lista, 
reorganizando la información en el orden correcto, Para ello 
compara cada palabra de la matriz con la siguiente y asigna 
el subindice menor a la que tiene el valor numérico más bajo, 


El programa hace esto muchas veces y va pasando las palabras 
o números más ligeros (los que tienen un valor numérico más 
bajo) a la parte superior de la lista, Las rutinas de 
clasificación son dificiles de entender pero no hay porqué 
preocuparse; pronto se verá qué hacen y cómo lo hacen, 


La subrutina de las líneas 400 a 450 imprimen la información, 
Para tener la lista ordenada de las dos formas, pedir una 
clasificación y, después, teclear GD TO 160 y pedir la otra, 


Introducir: 


10 REM % CLASIFICACIÓN DE LISTAS % 

20 BORDER 4: PAPER 4; INK 0; CLS 

30 PRINT "PROGRAMA CLASIFICADOR" 

40 INPUT "Cuantos nombres tiene la lista?";num 
50 DIM N$(num,15): DIM M(num) 

60 CLS 

70 FOR N=1 TO num 

80 PRINT "Nombre No,":N 

90 INPUT "Nombre?" ;¡N$(N) 

100 INPUT "Marcador?":M(N) 

110 PAUSE 20; CLS: NEXT N; PAUSE 20 

120 PRINT "Esos datos se pueden ordenar" 

130 PRINT "de dos formas; " 

140 PRINT "1, En orden alfabetico" 

150 PRINT "2, En orden numerico" 

160 INPUT'"Elija 1 o 2 y pulse la tecla 
correspondiente" :ch 

170 IF ch=1 THEN GO SUB 200 

180 IF ch=2 THEN GO SUB 300 

190 GO SUB 400; PAUSE 0; STOP 


El listado continúa en la página siguiente 
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200 CLS: PRINT "ORDEN ALFABETICO" 

210 PRINT: FOR J=1 TO num 

220 FOR K=J TO 2 STEP-1] 

230 IF N$C(K,1 TO 15)>N$(K-1,1 TO 15) THEN GO TO 280 

240 LET TS$=N$(K,1 TO 15): LET T=MCk) 

250 LET N$(K,1 TO 15)=N$(K-1,1 TO 15); 
LET M(K)=M(K-1) 

260 LET N$(K-1,1 TO 15)=T$; LET M(K-1)=T 

270 NEXT K 

280 NEXT J 

230 LET comienzo=1; RETURN 

300 CLS:; PRINT "ORDEN NUMERICO":; PRINT 

310 FOR J=1 TO num 

320 FOR K=J TO 2 STEP-1 

230 IF M(K)< MCK-1) THEN 60 TO 380 

240 LET T=M(K); LET TS=N$(K,1 TO 15) 

350 LET M(K)=M(K-1); LET N$(K, TO 15)= 
N$CK-1,1 TO 15) 

360 LET M(K-1)=T; LET N$(K-1,1 TO 15)=T5 

370 NEXT K 

380 NEXT J 

390 LET comienzo=1: RETURN 

400 PAUSE 10 

410 PRINT "NOMBRE" "MARCADOR"; PRINT 

420 FOR I=comienzo TO num 

430 PRINT N$CI),MCI) 

440 NEXT 1 


450 RETURN 


PROGRAMA 16; GRAFICO DE BARRAS 


El programa 17 dibuja un gráfico de barras que muestra el 
número de horas de sol diarias de los días de una semana, Se 
trata de una más de las muchas formas que ofrece el Spectrum 
para presentar gráficamente información numérica, 


La línea 30 pone a 0 la variable TOTAL, Más adelante, la 
linea 100 sumará a este total el total de horas de sol de 
cada día, 


La linea 40 define una matriz, D%, que contendrá las tres 
primeras letras de cada día de la semana, y una segunda 
matriz, H, que almacenará las horas de sol habidas cada día, 


La línea 80 establece un bucle, La línea 90 lee los datos 
almacenados en las lineas 200 y 210, y la linea 100 va 
sumando el número de horas a la variable TOTAL según va 
leyendo esos datos, 


La línea 110 imprime el día de la semana y las líneas 120 a 
150 una linea de bloques gráficos, La longitud de esta linea 
es proporcional al número de horas almacenado en H(N); en 
este caso cada hora de sol está representada por dos bloques, 


Para adaptar este gráfico a un conjunto de números distintos 
puede ser necesario cambiar el número de bloques que 
corresponden a cada unidad numérica, 


La línea 160 imprime el número representado por cada línea, a 
continuación de la línea, 


Las líneas 180 y 190 imprimen un análisis de la información 
presentada en pantalla; la línea 180 imprime las horas de sol 
totales y la línea 190 calcula la cifra media diaria, 


La palabra reservada INT redondea la media cambiándola por el 


número entero inmediatamente inferior, Para imprimir la cifra 
media en su forma decimal basta dejar de poner INT, | 
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Introducir: 


REM % GRAFICO DE BARRAS % 

BORDER 5; PAPER 5; INK 0; CLS 

LET TOTAL=0 

DIM D05(7,3); DIM H(7) 

PRINT "GRAFICO DE LAS HORAS DE SOL" 


FOR N=1 TO 7 
READ DS(N),H(N) 
LET TOTAL=TOTAL+H(N) 


O PRINT DS(N,1 TO 3);" ": 


INK 6 
FOR $=1 TO H(N)X2 

PRINT "Y; 

NEXT $ 

INK 0: PRINT " "sHON) 

PRINT: NEXT N 

PRINT'TOTAL;" HORAS DE SOL DE ESTA SEMANA" 
PRINT'INT(TOTAL/7):" HORAS DIARIAS DE PROMEDIO" 
DATA "LUN",8, "MAR" 9 "MIE" 4 

DATA "JUE" 6 "VIE" 9, "SAB" 7, "DOM" 12 


Los gráficos e imágenes mejoran si se afladen efectos sonoros, 


Para aÑladir sonido al programa 16, incluir esta línea; 


145 BEEP ,0125,5 


PROGRAMA 17: GRAFICO DE BARRAS 2 


El programa 17 es otra versión del programa 16, Este programa 
permite escribir la información directamente para componer un 
gráfico diferente cada vez que se ejecuta el programa, 


Las líneas 40 a 130 piden al usuario los diversos tipos de 
datos relativos al gráfico, Esta información servirá después 
para imprimir la imagen gráfica, 


Las líneas 150 a 200 piden más tarde la información 
correspondiente a cada día, Si se escribe un número mayor que 
el máximo establecido, la línea 180 así lo hará saber, 


Las líneas 240 a 390 imprimen entonces el gráfico, 


La línea 260 calcula el número de unidades que corresponderán 
a cada bloque gráfico, utilizando a tal efecto la variable 
BS, Se hace así para garantizar que las líneas del gráfico 
caben en la pantalla y no saltan a la siguiente línea cuando 
surge un número mayor que 24, 


Introducir: 


10 REM % GRAFICO DE BARRAS 2 * 

20 BORDER 7; PAPER 7; INK 0; CLS 

30 DIM D$(7,3); DIM U(7) 

40 PRINT "Titulo del grafico?" 

50 POKE 23658,8; INPUT "Titulo? “;T$ 


El listado continúa en la página siguiente 
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60 PRINT'TS 
70 PRINT'"Unidad a utilizar?" 
80 INPUT'"Unidad? ":U$ 
90 PRINT'U$ 
100 PRINT'"Cual es el maximo numero” 
110 PRINT "de unidades diarias? "; 
120 INPUT "Maximo unidades? ":max 
130 PRINT'"Gracias” 
140 PAUSE 20: CLS 
150 FOR N=1 TO 7 
160 PRINT "Cuantos(as) ":U$:" el dia ";N 
170 INPUT U(N) 
180 IF U(N)>max THEN PRINT "Ese numero es mayor que 
el maximo"; 60 TO 160 
190 PRINT U(N) 
200 NEXT N 
210 PRINT'"Gracias, Pulse la tecla 0" 
220 PRINT "para ver el grafico;" 
230 PAUSE 0 
240 BORDER 0: PAPER 0; INK 7; CLS 
250 PRINT T$: PRINT 
260 LET BS=max/24; LET TOTAL=0 
270 FOR N=1 TO 7 
280 READ D$(N) 
290 PRINT DS(N);" "s 
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300 FOR L=1 TO U(N) STEP BS 

310 PRINT INK 2:" ME"; 

320 NEXT L 

330 PRINT " ";U(N): PRINT 

340 LET TOTAL=TOTAL+U(N) 

350 NEXT N 

360 PRINT'"TOTAL DE ESTA SEMANA: " 
370 PRINT TOTAL;" ":U$ 

380 PRINT'"PROMEDIO DIARIO: " 

390 PRINT TOTAL/7:" ":U$ 

400 DATA "LUN" ñ "MAR" j "MIE" , "JUE" 7 "VIE" j "SAB" / "DOM" 


PROGRAMA 18: GRAFICO LINEAL 


El programa 18 dibuja un gráfico lineal con la información 
relativa a los totales mensuales del concepto elegido; podría 
ser el dinero gastado cada mes, o los kilómetros recorridos, 


Las lineas 40 a 160 establecen el titulo y el tipo de 
unidades, La línea 120 pide la cantidad máxima a introducir, 


Las líneas 170 a 210 permiten introducir los valores 
correspondientes a cada mes, 


Las lineas 230 a 310 componen la imagen de la pantalla, Las 
lineas 240 y 250 dibujan los ejes X e Y del gráfico y las 
líneas 260 a 310 dibujan las graduaciones de la escala, 


Las lineas 330 a 350 imprimen las letras iniciales de cada 
nes a lo largo del eje X, Estos datos están almacenados en la 
línea 540 y se imprimen mediante una PRINT AT, 


Las lineas 360 a 390 también hacen uso de la PRINT AT, ahora 
para imprimir los valores Y en el eje vertical, Hay diez 
valores Y, programados en incrementos de "max"/10, 

Las lineas 400 a 490 dibujan la línea, El bucle de la línea 
410 traza la coordenada X (abcisa) de cada punto, 
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Las lineas 420 y 430 se encargan de calcular las coordenadas 
Y, A tal efecto, la linea 420 divide la altura máxima de la 
retícula, 160, por "max" y almacena el resultado en la 
variable UNIDAD, Luego, la linea 430 multiplica esa cifra por 
cada uno de los totales mensuales, A(N): se suma un 10 para 
compensar el punto de inicio del eje Y, 


La línea 440 comprueba si el valor X es 36, el punto inicial 
del gráfico, y si lo es traza ese punto sin más, Todos los 
demás puntos quedarán unidos al anterior por una linea, 
trazada por la instrucción de linea 470, Las variables Y2 e 
Y3 sirven para conocer la diferencia entre cada punto y el 
anterior: la instrucción 470 utiliza el resultado para 
dibujar una linea, 


Por último, las lineas 500 a 530 utilizan una serie de 
instrucciones POKE e instrucciones PRINT AT para imprimir al 
pie de la pantalla el titulo del gráfico y las unidades, 


ME ER $ PE de de 5 Se. OE: Mo El 


Introducir: 


10 REM % GRAFICO LINEAL % 

20 BORDER 7; PAPER 7; INK 0; CLS 

30 DIM M$(12); DIM A(12) 

40 PRINT "GRAFICO LINEAL" 

50 PRIM "enanas 

60 PRINT'"Titulo del grafico?" 

70 INPUT T$ 

80 PRINT'T$ 

90 PRINT'"Unidades a utilizar? 

100 INPUT U$ 

110 PRINT'U$ 

120 PRINT'"Numero maximo de unidades?" 
130 PRINT "(solo multiplos de diez)" 

140 INPUT max 

150 PRINT'max 

160 PRINT "Gracias"; PAUSE 50: CLS 

170 FOR N=] TO 12 

180 PRINT'"Introduzca la cantidad mensual";¡N 
190 INPUT A(N) 
200 IF A(N)>max THEN PRINT "Este numero sobrepasa el 

maximo "; GO TO 180 

210 NEXT N 
220 PRINT "Pulse la tecla 0 para ver el grafico" 
230 PAUSE 0; BORDER 6; PAPER 6; INK 0;CLS 
240 PLOT 36,10; DRAW 175,0 
250 PLOT 36,10; DRAW 0,160 

260 FOR Y=10 TO 170 STEP 16 

270 PLOT 32,Y; DRAW 4,0 

280 NEXT Y 

290 FOR X=36 TO 214 STEP 16 

300 PLOT X,7; DRAW 0,3 

310 NEXT X 

320 LET N=1 

330 FOR X=4 TO 26 STEP 2 

340 READ MS(N); PRINT AT 21,X;M$(N) 


El listado continúa en la página siguiente 
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250 LET N=N+1: NEXT X 

360 LET I=max 

370 FOR Y=0 TO 20 STEP 2 

380 PRINT AT Y,0:1 

390 LET I=I-(max/10); NEXT Y 

400 LET N=] 

410 FOR X=36 TO 214 STEP 16 

420 LET UNIDAD=160/max 

430 LET YI=CACN)XUNIDAD)+10 

440 IF X=36 THEN PLOT X,Y1; 60 TO 480 

450 LET V2=(A(N-1)*UNIDAD)+10 

460 LET Y3=Y2-Y1 

470 DRAW 16,-Y3 

480 LET N=N+1 

490 NEXT X 

500 PORKE 23659,1; POKE 23689, 2 

510 PRINT AT 22,0;T$ 

520 PRINT AT 22,16;"Unidades: ";U$ 

530 PDKE 23659,2; PAUSE 0 

540 DATA api : un , uy" ; Qe ' uy" ; E a del / mar, 
LS á el Ñ uN" ; hal E lo 


PROGRAMA 19; HISTOGRAMA 


El programa 19 muestra una serie de totales mensuales y 
dibuja un histograma constituido por barras de colores, La 
principal diferencia entre este programa y el anterior está 
en la sección final, La línea 430 define el tamafío de la 
unidad, Para hacerlo, divide la altura máxima que puede tener 
el histograma en la pantalla por el máximo número de unidades 
a introducir, 


La linea 440 calcula entonces el valor "Y" de cada uno de los 
totales mensuales, La línea 450 establece un bucle que 
dibujará una linea horizontal de 9 pixels por cada unidad, 
Los colores de cada barra están determinados por la variable 
COL, incrementada en una unidad cada vez que el programa está 
a punto de trazar un nuevo total, 
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Introducir: 


10 REM * HISTOGRAMA * 

20 BORDER 7: PAPER 7; INK 0: CLS 

30 DIM M$(12); DIM A(12) 

40 PRINT "HISTOGRAMA" 

SO PRINT Par A 

60 PRINT'"Titulo del histograma?" 

70 INPUT T5 

80 PRINT'TS 

90 PRINT'"Unidades a utilizar?" 

100 INPUT US 

110 PRINT'US 

120 PRINT'"Numero maximo de unidades?" 
130 PRINT "(solo multiplos de diez)" 
140 INPUT max 

150 PRINT'max 

160 PRINT "Gracias"; PAUSE 50; CLS 

170 FOR N=1 TO 12 

130 PRINT'"Introduzca la cantidad mensual ";¡N 
190 INPUT A(N) 


El listado continda en la página siguiente 
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200 IF A(N)ómax THEN PRINT "Ese numero sobrepasa el 

«maximo "; 60 TO 180 

210 NEXT N 

220 PRINT "Pulse la tecla 0 para ver el histograma" 

230 PAUSE 0: BORDER 7; PAPER 7; INK 0;CLS 

240 PLOT 36,10; DRAW 185,0 

250 PLOT 36,10; DRAW 0,1%0 

260 FOR Y=10 TO 170 STEP 16 

270 PLOT 32,Y: DRAW 4,0 

280 NEXT Y 

290 FOR X=36 TO 214 STEP 16 

300 PLOT X,7; DRAW 0,3 

310 NEXT X 

320 LET N=1 

330 FOR X=4 TO 26 STEP 2 

340 READ M$(N): PRINT AT 21,X:M$(N) 

350 LET N=N+]; NEXT X 

360 LET I=max 

370 FOR Y=0 TO 20 STEP 2 

390 PRINT AT Y,0;1 

390 LET I=I-(max/10); NEXT Y 

400 LET N=1: LET COL=0 

410 FOR X=36 TO 214 STEP 16 

420 INK COL 

430 LET UNIDAD=160/max 

440 LET Y=CACN)RUNIDAD)+11 

450 FOR U=11 TO Y 

460 PLOT X,U; DRAW 9,0 

470 NEXT U 

480 LET N=N+1; LET COL=COL+] 

490 IF COL>6 THEN LET COL=0 

500 NEXT X; INK 0 

510 POKE 23659,1: POKE 23689, 2 

520 PRINT AT 22,0; TS 

530 PRINT AT 22,16;"Unidades: ";U$ 

540 POKE 23659,2: PAUSE 0 

550 DATA UEn ; upon , uy" ó e. a ¡alrder it a , e, 
sl Ñ un" , xls de 
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TURISMO 


ALEMAMTA 
RAN BRETAMA 
TADOS UNMNTDOS 
ITALIA 
FRAMCIA 


PROGRAMA 20: GRAFICO DE BLOQUES 


El programa 20 dibuja un gráfico de bloques, El usuario elige 
el número de franjas que desea, lo que van a representar y 
escribe el porcentaje correspondiente a cada franja, En la 
pantalla aparecerá un gráfico de bloques a todo color, 


Las lineas 30 a 80 hacen las preguntas necesarias, Esta 
información sirve para definir las matrices en la línea 90, 


Después se introducen los datos de cada segmento, El concepto 
que representa cada uno de ellos queda almacenado como la 
variable 5$ y el porcentaje correspondiente a ese segmento 
queda almacenado como P, 


Las lineas 200 a 310 dibujan luego el gráfico de bloques, 
Cada segmento de un color del bloque, representante de un 
componente determinado, tiene una anchura que es proporcional 
al porcentaje correspondiente a ese componente, Cada punto 
del porcentaje tiene asignados 2,5 pixels de anchura, 
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Un pixel es un punto de la pantalla gráfica del 2X Spectrum y 
por lo tanto no existe medio pixel, razón por la que este 
gráfico no puede ofrecer una exactitud del 1004 


Otra fuente de distorsión de la precisión del gráfico es el 
método que utiliza el Spectrum para dibujar el color, En los 
puntos de la pantalla donde se coinciden dos colores tiene 
prioridad el color trazado en último lugar, De todas formas, 
este gráfico de bloques proporciona una buena impresión 
visual con la mayoria de las cifras de porcentajes, 


Los puntos inicial y final de cada segmento, PI y PF, cambian 
durante la ejecución del programa, pues el punto final de un 
segnento pasa a ser el punto inicial del siguiente y así 
sucesivamente, 


La línea 270 dibuja cada una de las líneas que componen el 
gráfico de un color distinto, 


La linea 300 incrementa en 1 el valor de COL, que determina 
el color de cada bloque, Se ha determinado que el número 
máximo de segmentos sea siete, dado que sólo se puede 
trabajar con siete colores distintos, 


Las líneas 320 a 370 imprimen en la cabecera de la pantalla 
sendos bloques de cada uno de los colores utilizados, y, 
junto a ellos, imprimen también el titulo de los segmentos 
correspondientes y sus porcentajes, 


Introducir; 
10 REM X GRAFICO DE BLOQUES * 


20 PRINT " GRAFICO DE BLOQUES" 
30 PRINT "Titulo del grafico?" 
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40 INPUT TS 

50 PRINT'"Cuantos segmentos hay?" 

60 PRINT "(No mas de siete)" 

70 INPUT num 

30 IF num>7 THEN PRINT'"Demasiados";G0 TO 50 
90 DIM Sínum); DIM S$(num,15); DIM P(num) 

100 LET P=0; CLS: PRINT num; " Segmentos":PRINT 

110 FOR N=1 TO num 

120 PRINT "Segmento No,";N;":Nombre ? "; 

130 INPUT "Nombre ? ";S$(N); PRINT S$(N) 

140 PRINT "Porcentaje ? "; 

150 INPUT P(N) 

160 PRINT P(N); LET P=P+P(N) 

170 IF P>100 THEN PRINT "Sobrepasado el 1004"; PAUSE 
20; 60 TO 80 

130 PRINT "Total hasta ahora: ";P:"%" 

190 NEXT N 

200 BORDER 0; PAPER 0; INK 7; CLS 

210 PRINT AT 0,0;T9. 

220 LET Pl=0; LET COL=1 

230 FOR N=1 TO NUM 

240 LET PF=PI+(P(N)%2,5) 

250 INK COL 

260 FOR B=PI TO PF 

270 PLOT B,0; DRAW 0,100 

280 NEXT B 

290 LET PI=PF 

300 LET COL=COL+] 

310 NEXT N 

320 LET A$=" MW EW *; LET COL=1 

330 FOR L=1 TO NUM 

340 INK COL; PRINT AT L+1,0:A%; 

350 INK 7; PRINT S$(L);" "¡P(L);"%" 

360 LET COL=COL+1 

370 NEXT L 

380 PAUSE 0 
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Los programas se pueden "almacenar", es decir grabar, en una 
cinta cassette: asi se pueden utilizar indefinidamente, 


Conectar el aparato de cassette al ordenador, poner una cinta 
virgen y comprobar que ha sido rebobinada hasta el comienzo, 


El 2% Spectrum dispone de una conexión especial constituida 
por dos cables unidos, cada uno con una clavija en ambos 
extremos, Para almacenar programas, conectar sólo una de 
estas clavijas al enchufe MIC que hay detrás del ordenador y 
conectar el otro extremo del cable al enchute MIC del aparato 
grabador, Comprobar que las dos clavijas pertenecen a la 
misma sección del cable, 


Antes de comenzar, asegurarse de haber entendido la forma de 
cargar y almacenar los programas, Escribir un programa corto 
e introducir; 


SAVE " 
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SAVE es una palabra clave (tecla S), Para poner un nombre al 
programa elegir uno que lo describa, Por ejemplo, el programa 
se podria llamar JUEGO, Escribir el nombre del programa y 
cerrar las comillas, (Es obligatorio utilizar las comillas,) 
Ahora debe haber en la pantalla; 


SAVE "JUEGO" 


Pulsar la tecla ENTER y se verá en la pantalla el siguiente 
nensaje: 


Start tape, then press any key, 
(Conectar grabador, después pulsar cualquier tecla) 


Pulsar los botones RECORD y PLAY del aparato grabador y 
después pulsar cualquier tecla, Se verá en la pantalla una 
serie de franjas transversales de color rojo y azul claro, 
seguidas por algunas franjas más estrechas de color azul y 
amarillo, Esto sucede dos veces, Cuando el programa ha sido 
cargado, aparece el siguiente mensaje; 


0 0K, 0:1 


Este mensaje significa que el programa ha sido almacenado, 
Pulsar el botón STOP del grabador, 


CARGA 


Ahora que se tiene el programa grabado, se puede volver a 
"cargar" en el ordenador, En primer lugar, introducir la 
orden NEW y después pulsar ENTER, Esto asegura que la memoria 
está vacia, , 


Ahora hay que conectar una clavija del otro cable en el 
enchufe EAR que hay detrás del 2X Spectrum y la otra clavija 
en el enchufe EXT SP o EAR del aparato grabador, Desconectar 
también la clavija del enchufe MIC del ordenador; si no se 
hace así se podrían tener problemas al cargar programas, 
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Rebobinar hasta el principio de la cinta e introducir el 
mensaje: 


LOAD "JUEGO" 


(LOAD es una palabra clave asociada a la tecla J), Pulsar la 
tecla ENTER y después el botón PLAY del aparato grabador, 
Tras un corto espacio de tiempo sale en la pantalla la misma 
configuración de franjas de colores de la grabación, El 
nombre del programa también sale en la pantalla, Después se 
ve el mensaje: 


0, OK 0;1 


Esto significa que el programa ha sido cargado y que, por lo 
tanto, se puede ejecutar (RUN), Pulsar el botón STOP del 
aparato grabador, Ahora introducir RUN, pulsar ENTER, y el 
programa será ejecutado, 


Si no funciona correctamente, comprobar los controles del 
volumen y del tono; ambos tienen que estar al máximo o cerca, 
Conseguir el ajuste adecuado suele llevar tiempo, También es 


posible que el aparato grabador no sea compatible, En caso de Co; 


duda, acudir en demanda de ayuda a la tienda donde se 
adquirió el ordenador, Sobre todo, que no cunda el pánico; la 
mayoria de los usuarios de micros tienen de vez en cuando 
problemas en la carga y almacenamiento de los programas, 
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RESUMEN 
Variables 


Es posible almacenar palabras como variables, pero sólo se 
pueden utilizar nombres de variable de una sola letra, El 
nombre de variable debe ir seguido por $: por ejemplo; 


LET B$="Rana" 


Los números se pueden almacenar como variables utilizando, a 
tal efecto, nombres de variable de una letra o más, 


Matrices 

Una matriz puede servir para almacenar conceptos relacionados 
bajo un mismo nombre de variable, Cada concepto de la matriz 
está identificado por el nombre de la matriz seguido por un 
número encerrado entre paréntesis (el subindice), 


LET 5$(1)="DOMINGO" 


Antes de estar en disposición de utilizar una matriz, hay que 
haber reservado espacio en la memoria mediante una 
instrucción DIM (de dimensión), El primer número que sigue a 
la instrucción DIM define el número de conceptos a almacenar, 
El segundo número, que debe ser incluido al almacenar 
palabras, define el número máximo de letras a almacenar, 


DIM $$(7,9) 


Las matrices sirven para almacenar números o texto, Sus 
nombres de variable deben ser de una sola letra, 


En las instrucciones DATA, cada concepto debe estar separado 
de los demás por uná coma, Se pueden almacenar números y 
palabras en una misma instrucción DATA, pero las palabras 
almacenadas como variables deben estar entre comillas, 


200 DATA "Juan",12 "Guadalajara" 
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PRIMEROS PASOS 


¡Disfrute al maximo con su ordenador! 


Los programas de este libro —sencillos al 
principio y algo mas complejos al final— le 
proporcionaran un agradable entretenimiento 

y le ensenaran a experimentar con su 
microordenador, adaptando los programas segun 
sus preferencias y necesidades. Al terminar, 
estara preparado para desarrollar sus propios 
programas. 


Primeros pasos con el ZX Spectrum 


— Matemáticas sencillas 

— Palabras y juegos de palabras 
— Dibujos y animacion 

— Gráficos y numeros 


Primeros pasos con el Commodore 64 


— Musica y efectos de sonido 

— Palabras y juegos de palabras 
Dibujos y animacion 

Graficos y numeros 


